<%
strQuery = ""
Char="?"
For Each name In Request.Form
	strQuery = strQuery & Char & name & "=" & Request.Form(name)
	Char="&"
Next

response.Write strQuery & "<br><br>"
response.Write "Request.QueryString = [" & Request.QueryString() & "]"
strQuery = strQuery & Char & Request.QueryString

Response.Redirect "AutomatSpisok-D2.asp" & strQuery

%>
